home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software USA 5 #5
/
Software USA Volume 5.05.iso
/
pc
/
homeoff
/
zilch
/
install
/
_setup.1
/
Zilchs21.exe
/
0
/
RCDATA
/
TCALCMGRFORM
/
TCALCMGRFORM.txt
Wrap
Text File
|
1999-01-30
|
21KB
|
773 lines
object CalcMgrForm: TCalcMgrForm
Left = 275
Top = 150
BorderStyle = bsDialog
Caption = 'CalcMgrForm'
ClientHeight = 453
ClientWidth = 632
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
Position = poScreenCenter
OnActivate = FormActivate
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object LoanLabel: TLabel
Left = 116
Top = 8
Width = 102
Height = 13
Caption = 'Loan Calculations'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object InvestmentLabel: TLabel
Left = 397
Top = 8
Width = 136
Height = 13
Caption = 'Investment Calculations'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object CancelBtn: TBitBtn
Left = 40
Top = 407
Width = 75
Height = 25
Hint = 'Click to go back to the main screen'
Caption = 'Go back'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
TabStop = False
OnClick = CancelBtnClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333000033338833333333333333333F333333333333
0000333911833333983333333388F333333F3333000033391118333911833333
38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
911118111118333338F3338F833338F3000033333911111111833333338F3338
3333F8330000333333911111183333333338F333333F83330000333333311111
8333333333338F3333383333000033333339111183333333333338F333833333
00003333339111118333333333333833338F3333000033333911181118333333
33338333338F333300003333911183911183333333383338F338F33300003333
9118333911183333338F33838F338F33000033333913333391113333338FF833
38F338F300003333333333333919333333388333338FFF830000333333333333
3333333333333333333888330000333333333333333333333333333333333333
0000}
Margin = 0
NumGlyphs = 2
Spacing = -1
end
object LoanPanel: TPanel
Left = 40
Top = 27
Width = 255
Height = 35
TabOrder = 1
object LoanBox: TComboBox
Left = 9
Top = 7
Width = 235
Height = 21
Style = csDropDownList
Color = clWhite
Ctl3D = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ItemHeight = 13
Items.Strings = (
' Calculate a Loan Payment '
' Price Range You Can Afford '
' Remaining Balance on a Loan ')
ParentCtl3D = False
ParentFont = False
TabOrder = 0
OnChange = LoanBoxChange
OnDropDown = LoanBoxDropDown
end
end
object InvestmentPanel: TPanel
Left = 338
Top = 27
Width = 255
Height = 35
TabOrder = 2
object InvestmentBox: TComboBox
Left = 9
Top = 7
Width = 235
Height = 21
Style = csDropDownList
Color = clWhite
Ctl3D = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ItemHeight = 13
Items.Strings = (
' Future Value of a Lump Sum '
' Future Value of Regular Deposits '
' Lump Sum Required for FV '
' Regular Deposits Required for FV ')
ParentCtl3D = False
ParentFont = False
TabOrder = 0
OnChange = InvestmentBoxChange
OnDropDown = InvestmentBoxDropDown
end
end
object MainPanel: TPanel
Left = 40
Top = 85
Width = 553
Height = 291
BevelOuter = bvLowered
TabOrder = 3
object LabelInput1: TLabel
Left = 40
Top = 164
Width = 245
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = 'Principal Amount'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object LabelInput2: TLabel
Left = 40
Top = 194
Width = 245
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = 'Annual Interest Rate'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object LabelInput3: TLabel
Left = 40
Top = 224
Width = 245
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = 'Length in Months'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object LabelInput4: TLabel
Left = 40
Top = 255
Width = 245
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = 'Length in Months'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Bevel1: TBevel
Left = 1
Top = 139
Width = 552
Height = 13
Shape = bsTopLine
end
object Label1: TLabel
Left = 422
Top = 224
Width = 12
Height = 13
Caption = 'or'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object YearLabel: TLabel
Left = 491
Top = 224
Width = 33
Height = 13
Caption = 'Years'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object BlurbPanel: TPanel
Left = 10
Top = 50
Width = 530
Height = 84
BevelOuter = bvNone
BorderStyle = bsSingle
Ctl3D = False
ParentCtl3D = False
TabOrder = 4
object Memo1: TMemo
Left = 79
Top = 10
Width = 409
Height = 68
BorderStyle = bsNone
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
Lines.Strings = (
'This indicates the actual sticker price or selling price you can' +
' afford '
'based on the loan information below. When negotiating a loan, n' +
'ever '
'tell the lender how much you can afford to spend each month. '
'Instead, tell them how much you can afford to borrow.')
ParentColor = True
ParentCtl3D = False
ParentFont = False
TabOrder = 0
end
end
object InputEdit1: TEdit
Left = 297
Top = 160
Width = 120
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
Text = 'InputEdit1'
OnChange = InputEdit1Change
OnExit = InputEdit1Exit
OnKeyDown = InputEdit1KeyDown
OnKeyPress = InputEdit1KeyPress
end
object InputEdit2: TEdit
Left = 297
Top = 190
Width = 120
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
Text = 'InputEdit2'
OnChange = InputEdit1Change
OnExit = InputEdit2Exit
OnKeyDown = InputEdit2KeyDown
OnKeyPress = InputEdit2KeyPress
end
object InputEdit3: TEdit
Left = 297
Top = 220
Width = 120
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
Text = 'InputEdit3'
OnChange = InputEdit3Change
OnExit = InputEdit3Exit
OnKeyDown = InputEdit3KeyDown
OnKeyPress = InputEdit3KeyPress
end
object ResultPanel: TPanel
Left = 32
Top = 12
Width = 473
Height = 125
BevelOuter = bvNone
BorderStyle = bsSingle
Ctl3D = False
ParentCtl3D = False
TabOrder = 3
object LabelResult1: TLabel
Left = 24
Top = 12
Width = 230
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = 'Monthly Payment'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Bottom3Panel: TPanel
Left = 13
Top = 31
Width = 413
Height = 82
BevelOuter = bvNone
BorderStyle = bsSingle
Ctl3D = False
ParentCtl3D = False
TabOrder = 1
object LabelResult2: TLabel
Left = 16
Top = 6
Width = 225
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = 'Last Pyment'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object LabelResult3: TLabel
Left = 16
Top = 31
Width = 225
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = 'Interest Paid'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object LabelResult4: TLabel
Left = 16
Top = 56
Width = 225
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = 'Total Money Paid'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object ResultPanel2: TPanel
Left = 253
Top = 2
Width = 120
Height = 21
Alignment = taRightJustify
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = 'ResultPanel2'
Color = clNavy
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentCtl3D = False
ParentFont = False
TabOrder = 0
end
object ResultPanel3: TPanel
Left = 253
Top = 27
Width = 120
Height = 21
Alignment = taRightJustify
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = 'ResultPanel3'
Color = clNavy
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentCtl3D = False
ParentFont = False
TabOrder = 1
end
object ResultPanel4: TPanel
Left = 253
Top = 52
Width = 120
Height = 21
Alignment = taRightJustify
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = 'ResultPanel4'
Color = clNavy
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentCtl3D = False
ParentFont = False
TabOrder = 2
end
end
object ResultPanel1: TPanel
Left = 266
Top = 8
Width = 120
Height = 21
Alignment = taRightJustify
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = 'ResultPanel1'
Color = clNavy
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentCtl3D = False
ParentFont = False
TabOrder = 0
end
end
object InputEdit4: TEdit
Left = 298
Top = 251
Width = 120
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
Text = 'InputEdit4'
OnChange = InputEdit1Change
OnExit = InputEdit4Exit
OnKeyDown = InputEdit4KeyDown
OnKeyPress = InputEdit4KeyPress
end
object YearBox: TComboBox
Left = 438
Top = 220
Width = 49
Height = 21
Style = csDropDownList
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ItemHeight = 13
Items.Strings = (
''
'1'
'2'
'3'
'4'
'5'
'6'
'7'
'8'
'9'
'10'
'11'
'12'
'13'
'14'
'15'
'16'
'17'
'18'
'19'
'20'
'21'
'22'
'23'
'24'
'25'
'26'
'27'
'28'
'29'
'30'
'31'
'32'
'33'
'34'
'35'
'36'
'37'
'38'
'39'
'40'
'41'
'42'
'43'
'44'
'45'
'46'
'47'
'48'
'49'
'50'
'51'
'52'
'53'
'54'
'55'
'56'
'57'
'58'
'59'
'60'
'61'
'62'
'63'
'64'
'65'
'66'
'67'
'68'
'69'
'70'
'71'
'72'
'73'
'74'
'75'
'76'
'77'
'78'
'79'
'80'
'81'
'82'
'83'
'84'
'85'
'86'
'87'
'88'
'89'
'90'
'91'
'92'
'93'
'94'
'95'
'96'
'97'
'98'
'99'
'100')
ParentFont = False
TabOrder = 6
OnChange = YearBoxChange
end
end
object ButtonClear: TButton
Left = 430
Top = 407
Width = 75
Height = 25
Hint = 'Clears the form entries'
Caption = 'Clear Form'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 4
TabStop = False
OnClick = ButtonClearClick
end
object ButtonCalculate: TButton
Left = 517
Top = 407
Width = 75
Height = 25
Hint = 'Calculate the results'
Caption = 'Calculate'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 5
TabStop = False
OnClick = ButtonCalculateClick
end
object btnPrint: TBitBtn
Left = 127
Top = 406
Width = 75
Height = 26
Hint = 'Print preview calculation results'
Caption = 'Print'
Enabled = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 6
OnClick = btnPrintClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
0003377777777777777308888888888888807F333333333333370FFFFFFF1F2F
1FF07FFFFFFFFFFFFFF70FFFFFFFFFFFFFF077777777777777770F4444444444
44F07F333333333333F70F888888888888F07F333333333337370FFFFFFFFFFF
FFF07FFFFFFFFFFFFFF7300000000000000337777777777777733330FFFFFFFF
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
33333337FFFF7733333333300000033333333337777773333333}
Margin = 2
NumGlyphs = 2
Spacing = -1
end
object btnBuilder: TBitBtn
Left = 214
Top = 406
Width = 136
Height = 26
Hint = 'Change the report settings'
Caption = 'Report Builder'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 7
Visible = False
OnClick = btnBuilderClick
Glyph.Data = {
BA040000424DBA04000000000000360000002800000016000000110000000100
18000000000084040000CE0E0000C40E00000000000000000000008080008080
0080800080800080800080800080800080800080800080800080800080800080
8000808000808000808000808000808000808000808000808000808000000080
8000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000008080
0000008080000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
000080800000008080000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFF0000000080800000008080000000FFFFFFFFFFFFFFFFFF000000000000FF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF
FFFFFFFFFFFF0000000080800000008080000000FFFFFFFFFFFFFFFFFFFFFFFF
000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFF
FFFFFFFFFFFFFFFFFFFF0000000080800000008080000000FFFFFFFFFFFFFFFF
FFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000FF
FFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000080800000008080000000FFFFFFFF
FFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000000000
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000080800000008080000000
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF0000
00000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000808000000080
80000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFF
FFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000008080
0000008080000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000
FFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
000080800000008080000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
00000000FFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFF0000000080800000008080000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFF000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000
0000000000000000000080800000008080000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF0000
00FFFFFFFFFFFF0000000080800080800000008080000000FFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFF000000FFFFFF000000008080008080008080000000808000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000080800080800080800080800000008080008080
0080800080800080800080800080800080800080800080800080800080800080
800080800080800080800080800080800080800080800080800080800000}
Margin = 2
Spacing = -1
end
end